home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
R-Shows
/
(c)woc xi 93.d64
/
main boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-11
|
2KB
|
32 lines
10 IFA<>0THEN120
20 D=PEEK(186):PRINT:INPUT"[147][196]O [217]OU [200]AVE A [198]ASTLOAD [213]TILITY [[217]/[206]]";FL$
30 IFFL$="N"THEN60
40 IFFL$="Y"THEN120
50 GOTO20
60 INPUT"[201]S [212]HIS [196]ISK [201]N [193] 1541[146] [207]R 1571[146] [196]RIVE";R$
70 IFR$="1541"THEN100
80 IFR$="1571"THEN110
90 GOTO60
100 OPEN15,D,15,"R:FL41!=F41":CLOSE15:OPEN15,D,15,"R:F71=FL71!":CLOSE15:GOTO170
110 OPEN15,D,15,"R:FL71!=F71":CLOSE15:OPEN15,D,15,"R:F41=FL41!":CLOSE15:GOTO170
120 IFA=0THENA=1:LOAD"ZAKP",D,1
130 IFA=1THENA=2:LOAD"ZAK",D,1
140 IFA=2THENA=3:LOAD"TPUG",D,1
150 IFA=3THENLOAD"MENU",D,1
160 END
170 LOAD"\BLOAD",D,1
180 .............................................................................
190 .............................................................................
200 .............................................................................
210 .............................................................................
220 .............................................................................
250 .............................................................................
260 ............................................................................
270 ............................................................................
280 ............................................................................
290 ............................................................................
300 ............................................................................
310 ............................................................................
320 ............................................................................
330 ............................................................................